home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / gfx / show / GS510_data.lha / ghostscript / 5.10 / gs_ttf.ps < prev    next >
Text File  |  1997-12-28  |  15KB  |  462 lines
  1. %    Copyright (C) 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Support code for direct use of TrueType fonts.
  19. % (Not needed for Type 42 fonts.)
  20.  
  21. % ---------------- Font loading machinery ---------------- %
  22.  
  23. % Augment the FONTPATH machinery so it recognizes TrueType fonts.
  24.  
  25. /.scanfontheaders where        % only defined if DISKFONTS is recognized
  26.  { pop
  27.    /.scanfontheaders [ .scanfontheaders aload pop (\000\001\000\000*) ] def
  28.  }
  29. if
  30. /.findnonttfontvalue /.findfontvalue load def
  31. /.findfontvalue        % <file> <key> .findfontvalue <value> true
  32.             % <file> <key> .findfontvalue false
  33.             % Closes the file in either case.
  34.  { 1 index read pop 2 index 1 index unread 0 eq
  35.     {        % If this is a font at all, it's a TrueType font.
  36.       dup /FontType eq
  37.        { pop closefile 42 true }
  38.        { dup /FontName eq
  39.       { pop .findttfontname }
  40.       { pop closefile false }
  41.      ifelse
  42.        }
  43.       ifelse
  44.     }
  45.     {        % Not a TrueType font.
  46.       .findnonttfontvalue
  47.     }
  48.    ifelse
  49.  } bind def
  50. /.findttfontname    % <file> .findttfontname <fname> true
  51.             % <file> .findttfontname false
  52.             % Closes the file in either case.
  53.  { .loadttfonttables
  54.    (name) findtableentry
  55.     { dup 8 getu32 f exch setfileposition
  56.       12 getu32 string f exch readstring pop
  57.       6 findname
  58.     }
  59.     { false
  60.     }
  61.    ifelse
  62.    f closefile end end
  63.  } bind def
  64.  
  65. % Load a font file that might be a TrueType font.
  66.  
  67. /.loadnonttfontfile /.loadfontfile load def
  68. /.loadfontfile        % <file> .loadfontfile -
  69.  { dup read pop 2 copy unread 0 eq
  70.     {        % If this is a font at all, it's a TrueType font.
  71.       .loadttfont pop
  72.     }
  73.     {        % Not a TrueType font.
  74.       .loadnonttfontfile
  75.     }
  76.    ifelse
  77.  } bind def
  78.  
  79. % ---------------- Automatic Type 42 generation ---------------- %
  80.  
  81. % Load a TrueType font from a file as a Type 42 PostScript font.
  82. % The thing that makes this really messy is the handling of encodings.
  83. % There are 3 interacting tables that affect the encoding:
  84. %    'cmap' provides multiple maps from character codes to glyph indices
  85. %    'glyf' maps glyph indices to outlines
  86. %    'post' maps glyph indices to glyph names (if present)
  87. % What we need to get out of this is:
  88. %    Encoding mapping character codes to glyph names
  89. %      (the composition of cmap and post)
  90. %    CharStrings mapping glyph names to glyph indices
  91. %      (the inverse of post)
  92. % If the post table is missing, we have to take a guess based on the cmap
  93. % table.
  94.  
  95. /.loadttfontdict mark
  96. /orgXUID 107 def    % Aladdin Enterprises organization XUID
  97. /maxstring 65500 def    % maximum length of a PostScript string
  98.  
  99. % Define the Macintosh standard mapping from characters to glyph indices.
  100. /MacRomanEncoding dup .findencoding def
  101. /MacGlyphEncoding mark
  102.     /.notdef /.null /CR
  103. MacRomanEncoding 32 95 getinterval aload pop
  104. MacRomanEncoding 128 45 getinterval aload pop
  105. % 143
  106.     /notequal /AE
  107.     /Oslash /infinity /plusinus /lessequal /greaterequal
  108.     /yen /mu1 /partialdiff /summation /product
  109.     /pi /integral /ordfeminine /ordmasculine /Ohm
  110.     /ae /oslash /questiondown /exclamdown /logicalnot
  111.     /radical /florin /approxequal /increment /guillemotleft
  112.     /guillemotright /ellipsis /nbspace
  113. MacRomanEncoding 203 12 getinterval aload pop
  114.     /lozenge
  115. MacRomanEncoding 216 24 getinterval aload pop
  116.     /applelogo
  117. MacRomanEncoding 241 7 getinterval aload pop
  118.     /overscore
  119. MacRomanEncoding 249 7 getinterval aload pop
  120. % 226
  121.     /Lslash /lslash /Scaron /scaron
  122.     /Zcaron /zcaron /brokenbar /Eth /eth
  123.     /Yacute /yacute /Thorn /thorn /minus
  124.     /multiply /onesuperior /twosuperior /threesuperior /onehalf
  125.     /onequarter /threequarters /franc /Gbreve /gbreve
  126.     /Idot /Scedilla /scedilla /Cacute /cacute
  127.     /Ccaron /ccaron /dmacron
  128. /packedarray where
  129.  { pop counttomark packedarray exch pop }
  130.  { ] readonly }
  131. ifelse def
  132.  
  133. % Procedures
  134. /getu16            % <string> <index> getu16 <integer>
  135.  { 2 copy get 8 bitshift 3 1 roll 1 add get add
  136.  } bind def
  137. /gets16            % <string> <index> gets16 <integer>
  138.  { getu16 16#8000 xor 16#8000 sub
  139.  } bind def
  140. /getu32            % <string> <index> getu32 <integer>
  141.  { 2 copy getu16 16 bitshift 3 1 roll 2 add getu16 add
  142.  } bind def
  143. /gets32            % <string> <index> gets32 <integer>
  144.  { getu32 dup 16#7fffffff gt { 4 { 16#40000000 sub } repeat } if
  145.  } bind def
  146. /getrange        % <offset> <length> getrange <string>
  147.             % Free variables: sfnts
  148.  { () sfnts
  149.     {        % Stack: offset length () sfnt
  150.       dup length 4 index gt { exch pop exit } if
  151.       4 -1 roll exch length sub 3 1 roll
  152.     }
  153.    forall 3 1 roll getinterval
  154.  } bind def
  155. /findtableentry        % <name4> findtableentry <tableentry> true
  156.             % <name4> findtableentry false
  157.             % Free variables: tables
  158.  { false 0 16 tables length 16 sub
  159.     {        % Stack: name4 false toffset
  160.       tables 1 index 4 getinterval 3 index eq
  161.        { tables exch 16 getinterval
  162.      exch pop exch true exit
  163.        }
  164.       if pop
  165.     }
  166.    for exch pop
  167.  } bind def
  168. /findtable        % <name4> findtable <table> true
  169.             % <name4> findtable false
  170.             % Free variables: tables
  171.  { findtableentry
  172.     { dup 8 getu32 exch 12 getu32 getrange true }
  173.     { false }
  174.    ifelse
  175.  } bind def
  176. /findname        % <nametable> <nameid> findname <string> true
  177.             % <nametable> <nameid> findname false
  178.  { false 3 1 roll 0 1 3 index 2 getu16 1 sub
  179.     {        % Stack: false table id index
  180.       12 mul 6 add 2 index exch 12 getinterval
  181.       dup 6 getu16 2 index eq
  182.        {    % We found the name we want.
  183.      exch pop
  184.         % Stack: false table record
  185.      dup 10 getu16 2 index 4 getu16 add
  186.      1 index 8 getu16 4 -1 roll 3 1 roll getinterval exch
  187.         % Stack: false string record
  188.         % Check for 8- vs. 16-bit characters.
  189.      is2byte { string2to1 } if true null 4 -1 roll exit
  190.        }
  191.       if pop
  192.     }
  193.    for pop pop
  194.  } bind def
  195. /is2byte        % <namerecord> is2byte <bool>
  196.  { dup 0 getu16
  197.     { { pop true }        % Apple Unicode
  198.       { pop false }        % Macintosh Script manager
  199.       { 1 getu16 1 eq }        % ISO
  200.       { 1 getu16 1 eq }        % Microsoft
  201.     }
  202.    exch get exec
  203.  } bind def
  204. /string2to1        % <string2> string2to1 <string>
  205.  { dup length 2 idiv string dup
  206.    0 1 3 index length 1 sub
  207.     { 3 index 1 index 2 mul 1 add get put dup }
  208.    for pop exch pop
  209.  } bind def
  210. /cmapformats mark
  211.         % Each procedure in this dictionary is called as follows:
  212.         %    -mark- encodingtable <<proc>> -mark- glyphindices...
  213.   0        % Apple standard 1-to-1 mapping.
  214.     { 6 256 getinterval { } forall
  215.     } bind
  216.   4        % Microsoft/Adobe segmented mapping.
  217.     { /etab exch def
  218.       /nseg2 etab 6 getu16 def
  219.       14 /endc etab 2 index nseg2 getinterval def
  220.         % The Apple TrueType documentation omits the 2-byte
  221.         % 'reserved pad' that follows the endCount vector!
  222.       2 add
  223.       nseg2 add /startc etab 2 index nseg2 getinterval def
  224.       nseg2 add /iddelta etab 2 index nseg2 getinterval def
  225.       nseg2 add /idroff etab 2 index nseg2 getinterval def
  226.         % The following hack allows us to properly handle
  227.         % idiosyncratic fonts that start at 0xf000:
  228.       /firstcode startc 0 getu16 16#ff00 and def
  229.       pop 0 2 nseg2 3 sub
  230.        { /i2 exch def
  231.          /scode startc i2 getu16 def
  232.      counttomark scode firstcode sub 256 min exch sub 0 max { 0 } repeat
  233.      /ecode endc i2 getu16 def
  234.      /delta iddelta i2 getu16 def
  235.      idroff i2 getu16 dup 0 eq
  236.       { pop scode 1 ecode { delta add 65535 and } for
  237.       }
  238.       {    % The +2 is for the 'reserved pad'.
  239.         /gloff exch 14 nseg2 3 mul add 2 add i2 add add def
  240.         0 1 ecode scode sub
  241.          { 2 mul gloff add etab exch getu16
  242.            dup 0 ne { delta add 65535 and } if
  243.          }
  244.         for
  245.       }
  246.      ifelse
  247.        }
  248.       fo